File Name: a2_Pixit_1983_Baudville/Pixit_1983_Baudville.do
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 33024
Used Space (bytes): 110336
Physical Size (KB): 140
Free Space (KB): 32
Used Space (KB): 107
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 129
Used Sectors: 431
Tracks On Disk: 35
Sectors On Disk: 16
Disk directory for Pixit_1983_Baudville.do:
a2_Pixit_1983_Baudville/Pixit_1983_Baudville.do DISK VOLUME #254
* A 016 MENU
* A 000 START
* A 027 PICTURE EDITOR
* A 025 CREATE-A-SHAPE
* A 016 SHAPE TABLE EDITOR
* A 000 DEMO1
* B 009 MC1
* B 007 MC2
* B 009 MC3
* B 009 MC4
B 003 MC5
* B 008 CS.STANDARD 8
* B 008 CS.BOLD 10
* B 017 CS.BOLD 17
* B 008 CS.ITALIC 8
* B 014 CS.LARGE BLOCK 17
* B 008 ST.TUTORIAL SHAPES
* B 015 ST.ANIMALS 1
* B 006 ST.GEOMETRICS
* B 008 ST.PAINTS & PATTERNS
* B 012 ST.TREES
* B 002 ST.ANIMATION SHAPES
* B 014 ST.WILD ANIMALS
* B 009 ST.BUILDINGS
* B 005 ST.GAME SHAPES
* B 004 ST.MUSIC SYMBOLS
* B 010 ST.MUSIC INSTRUMENTS
* B 013 ST.POTPOURRI
* B 033 PI.CABLE CAR
* A 003 ANIMATION EXAMPLE 1
* A 003 ANIMATION EXAMPLE 2
* A 004 PIXIT SLIDESHOW
* A 000 PC
* B 000 PCM
* A 003 HI-RES TYPEWRITER
B 002 ST.TEST
DOS 3.3 format; 33,024 bytes free; 110,336 bytes used.
Text found in Pixit_1983_Baudville.do/MENU.bas:
0 REM PIXIT MENU PROGRAM(C)1894 BAUDVILLE
1 ONERR GOTO 600
5 POKE 230,32: CALL 62450: IF PEEK(770) < >132 OR PEEK(772) < >186 THEN PRINT CHR$(4)"BLOADMC5"
7 POKE 40282,101: POKE 40283,216: POKE -16297,0: POKE -16300,0: POKE -16302,0
10 D$ = "":M = 1:XM = 105:YM = 81:X = 0:Y = 90: HCOLOR= 7:PM = 13:PT = 13: POKE 232,0: POKE 233,PM: SCALE= 1: ROT= 0
20 POKE -16368,0: GOTO 50
30 POKE 233,PT: HCOLOR= 0: HPLOT X,Y: FOR N = 1 TO LEN(T$): XDRAW ASC( MID$ (T$,N,1)) -31: NEXT : RETURN
50 XDRAW 3 AT 26,91: XDRAW 4 AT 54,76: XDRAW 5 AT 68,67: XDRAW 6 AT 96,55: XDRAW 7 AT 110,44: HPLOT 95,80 TO 255,80 TO 255,124 TO 95,124 TO 95,80: XDRAW 2 AT 157,160
60 X = XM:Y = 75:T$ = "PROGRAM MENU": GOSUB 30
61 Y = 90:T$ = "Picture Editor": GOSUB 30
62 Y = 100:T$ = "Create a Shape": GOSUB 30
63 Y = 110:T$ = "Shape Table Editor": GOSUB 30
65 Y = 120:T$ = "Quit": GOSUB 30
66 X = 106:Y = 135:T$ = " to select": GOSUB 30
90 POKE -16304,0
100 POKE 233,PM:X = XM
110 Y = YM +10 *M: XDRAW 8 AT X,Y
120 CALL -756:KB = PEEK( -16384): IF KB = 8 OR KB = 11 THEN 160
130 IF KB = 21 OR KB = 10 THEN 180
140 IF KB < >13 THEN 120
150 HOME : VTAB 10: ON M GOTO 200,300,400,600
160 XDRAW 8 AT X,Y:M = M -1: IF M = 0 THEN M = 4
170 GOTO 110
180 XDRAW 8 AT X,Y:M = M +1: IF M = 5 THEN M = 1
190 GOTO 110
200 POKE -16303,0: HTAB 10: PRINT "LOADING PICTURE EDITOR": PRINT D$"RUN PICTURE EDITOR"
300 POKE -16303,0: HTAB 10: PRINT "LOADING CREATE-A-SHAPE": PRINT D$"RUN CREATE-A-SHAPE"
400 POKE -16303,0: HTAB 8: PRINT "LOADING SHAPE TABLE EDITOR": PRINT D$"RUN SHAPE TABLE EDITOR"
600 TEXT : HOME : POKE 42718,14: POKE 43583,0: POKE 216,0: NEW